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Specification for QANDA Subroutine. 


ABSTRACT 


QANDA is a PDP~12 subroutine written in LINC mode which allows a user to display textual informa- 
tion on the scope, ask questions of the viewer, allow editing of the input, and receive responses 


thereto. 


PRELIMINARY REQUIREMENTS 


QANDA will operate on a PDP-12 computer equipped with a VC12 LINCscope control and VRI2 CRT 
display, and Teletype. 


The subroutine is called by the following format: 


‘ JMPF QAINIT 

4] TXTSTR /POINTER TO TEXT STRING (HALF WORD ADDRESS) 
+2 ANSWER /POINTER TO ANSWER BUFFER (HALF WORD ADDRESS) 
3 REFRESH return 

+4 DONE return 


The calling sequence must be in LINC mode. 


; A JMP to QAINIT will initialize the subroutine and fill the answer 
: buffer with the underline character (_). The subroutine must be 
 ¢ | initialized at least once. QAINIT is located at the relative address 0 
with respect to the beginning of the routine. 


onl Points to the first character of the textual information to be displayed 
on the scope. 


Characters in the text string which have special meaning are: 


Character Code Meaning 
RETURN 43 End of a line of display. Place next character on 
next line. 

< 74 Interpret the decimal number immediately following < 
as the number of characters in the question field 
(Range 1-9). 

\ 34 End of text string 

F 06 Treated as a special character only if it appears at 


the beginning of a line. If present, the entire line 
will be displayed in full-size character format. F 
wild not appear on the scope. 
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Character Code Meaning 
H 10 Treated as a special character only if it appears at 


the beginning of a line. If present, the entire line 

will be displayed in half-size character format. H 

will not appear on the scope. If neither F nor H is 
present at the beginning of a line, half-size is assumed, 
and the first character of the line will appear on the 
scope. Intermixing of half and full-size characters 
between lines is legal. 


The 6-bit character string must conform to the character set accepted by DIAL. (See Table I.) 


The "TEXT" pseudo-op in DIAL may be used to create the text string. For example, to display the 


following message on the scope in full-size character format: 


DATA AT BLOCK 
UNIT _ 


the text string may be coded as: 


TXTSTR, TEXT — ZFDATA AT BLOCK <3 
FUNIT <1 \Z 


and would be assembled as: 


TEXT, 0604 
0124 
0140 
0124 
4002 
1417 
0313 
7463 
4306 
2516 
1124 
7461 
3400 


NOTE that the character "Z" before and after the text string is a delimiter for the assembler and does 


not appear in the assembled text string. (Any character not appearing in the text string may be used 


as a delimiter). 











| 
| 
| 
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Note also that the character "TAB", if typed within the text string, will appear in the assembled string 
( and will not be interpreted as a special character by DIAL. The use of "TAB" within the text string 


should, therefore, be avoided. 


The subroutine will automatically place a space before all question fields on the scope. The text string 
will not be changed. 

+2 
Points to the first character of the answer buffer. The answer buffer need not be set up in any special 
way; it must be in length at least the number of half words equal to the sum of the number of characters 
in each question field plus one for each question field plus one. In the example above, 7 half-words 
long: 4 for the total number of characters in all question fields plus 2 for the number of question fields 


plus 2 for the number of question fields plus 1 for the terminator. 


Upon entry, QANDA will initialize the answer buffer as follows (see example above). Al! characters 


in each answer field are initialized to the underline character (00): 


ANSWER, 7400 
0000 
7400 
3400 


Code 74 precedes each answer field. Code 34 is the terminator. These codes are placed in the answer 


Cc buffer by QANDA upon initialization. 


Characters, as they are received by QANDA from the Teletype, replace code 00 from left to right in 


each answer field. 


Conditions will always be such that the presence of a null value (00) in an answer field will guarantee 


that all remaining characters in that field will be set to 00. Note that an all-null field is possible. 


If the typist responds to the questions with the block number 43 and the unit 1, when the "DONE" 
return is taken, the buffer will show: 
ANSWER, 7464 
6300 


7461 
3400 


If the responses to questions are dealt with as received, the same answer buffer may be used with 
various text strings in sundry calls to QANDA, since it will be initialized by QANDA upon each 
initialization entry; the area reserved must, of course, be of sufficient length to accommodate the 


requirement among the text strings. 
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QANDA will refresh the scope once and then will return to this address, provided a LINE FEED has 


not been typed. This return is provided so that the calling program may periodically check external 





conditions: e.g., a sense switch may be checked or; the program may display a message while await- 
ing completion of a tape instruction which it may check following each refresh. Examining a partial 
answer buffer, however, is not recommended, because the answer buffer can be edited at any time by 


the typist. 


To maintain the display on the scope, QANDA has another entry point, QARFSH, which will not re- 
initialize the answer buffer. QANDA must be entered at this point each time it is to be refreshed. 


It is located at the relative address QAINIT +53. 


QANDA will always return to .+3 or .+4 following the instruction JMP QAINIT, regardless of the 
address of the instruction JMP QARFSH. A common situation is to place the instruction JMP QARFSH 


at .+3 following JMP QAINIT. 
+4 
QANDA will return to this location only if either 


1. LINE FEED is struck, or 
2. RETURN is struck and no question fields exist. 


A return to this address signals that the typist has completed his input. 


INPUT om 


Input is received from the Teletype keyboard. Legal keyboard characters are converted to their 6-bit 
equivalent and displayed on the scope. Legal characters are shown in Table I. The following input 


characters are not displayed, but are treated as special characters. 





Character Code Meaning 
x 34 Ignored on input 
ALT MODE 36 The scope display is reinitialized. 


All answer fields are reinitialized 
to the underline character ( ). 


RUBOUT 37 A cursor will always appear on the 
scope in front of the next character to 


be typed (unless there are no question 
fields). 








Character Code Meaning 





Typing RUBOUT will delete the character 
preceding the cursor and will move all 
characters following the cursor one character 
to the left, unless the cursor is initially at the 
beginning of a question field. 


RETURN 43 The cursor is moved to the beginning of the 
next question field. If the cursor is currently 
in the last field, it will be moved to the 
beginning of the first field when RETURN is 
typed. 


If there are no question fields, RETURN 
will have the same effect as LINE FEED. 





LINE FEED 45 Causes QANDA to exit to the "DONE" 
return. 
TAB 47 ignored on input. 
< 74 Moves the cursor left one position. Subsequent 


typing of another legal character will cause the 
present character on the scope to the right of 
the cursor to be replaced by the character just 
typed. 








> 76 Moves the cursor right one position unless 
that character is the underline character ( ). 


OUTPUT 


All output is to the scope, as described above. 


USAGE 


QANDA is written in LINC code. Along with the keyboard input subroutine, GETKBD, it occupies 
two blocks (512 words) of binary LINC tape. It may be assembled with the calling program by adding 


the source to the program. If this is done, remove *1000 at the beginning of the subroutine. 


It may also be called by reading the binary of the program into LINC location 1000 (memory blocks 2 
and 3) and executing an effective JMP 1000 and JMP 1053 to refresh. Two blocks of the binary must 


be read into core memory. 


PROGRAMS CALLED 


A LINC Teletype input subroutine, GETKBD, is called by QANDA and begins at location 121 of the 
second block of the binary. 
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It can be used independently of QANDA. GETKBD will accept ASCII input from the Teletype and 


convert it to 6-bit code as shown in Table I. 


Its calling sequence is: 
JMP GETKBD 
RETURN address 


GETKBD returns with the 6-bit code in the accumulator. If the accumulator equals zero, a key was 


not struck, and no input was received; or an illegal character was typed. 


GETKBD uses the LINC instruction IOB followed by a PDP-8 Teletype IOT instruction to perform the 


Teletype input/output functions. The following instruction sequence is issued in the subroutine QATPE 


to echo a character: 


QATPE, IOB 


QATLS /EQUATED TO PDP-8 IOT TLS 


LDA 
0 


STC =. +4/SAVE RETURN 


IOB 


QATSF /WAIT FOR FLAG. PDP-8 IOT TSF 


JMP  .=2 
JMP /EXIT 


This routine prints the ASCII character in the accumulator then waits for the printer flag to rise. The 


routine can be made more efficient by first waiting for the flag, then printing the character by changing 


the above routine as shown below: 


QATPE, STC QAACUM 
ADD 0 
STC QARETR 
IOB 
QATSF 
JMP .=2 
LDA I 
QAACUM, 0 
IOB 





/SANVE AC 
/SAVE RETURN 
/WAIT FOR FLAG 


/GET CHAR 
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QATLS /PRINT IT 
CLR 
CQARETR, JMP /EXIT, AC=0 


Subsequently, less flicker will appear on the scope while characters are being typed. However, the 
calling program must initially cause the Teletype flag to raise when the program is first started. This 


may be accomplished by the following instruction sequence at the beginning of the program: 


iOB 
6032 /PDP-8 IOT KCC 
OB 
6046 /PDP-8 IOT TLS 


Whatever method is used, the calling program must, of course, also conform to the same convention 


throughout the program whenever if is driving the Teletype. 


RESTRICTIONS 


QANDA must reside in the same LINC lower memory segment as the calling sequence. 


It uses, without restoring, index registers 1, 2,3, 4, 5, 6. Further, these registers cannot be used 
by the calling program between the refresh return and the next call to the refresh entry unless they 


are first saved and then restored. 


The text string and answer buffer are separate from each other and from the calling sequence and may 
therefore be in upper memory. However, the text string may not start in the left half of LINC location 
2000 (e.g. the left half of the first word of the upper memory segment) uniess the pointer to the text 
string is coded as 2\\2000, or 2\ TAG, where TAG =2000. 


QANDA will display a maximum of 44, half-size characters horizontally on a line before scope 


"wrap-around" will occur. Likewise, a maximum of 22, full-size characters per line may be dis- 


10 
played. 


A maximum of 135 lines of text (either half-size of full-size) may be displayed vertically on the 


scope without wraparound. The initial Y-coordinate setting is coded as 277, at location QARFSH+1. 


This initial Y-coordinate setting may be changed by incrementing or decrementing this number by a 











number which is a multiple of 40, . Thus, to raise the initial Y-coordinate one line and therefore 


increase the maximum number of lines to 14,,, the number 277, may be changed to 337. at location 


10’ 8 


QARFSH+1. ¢ | 


Table I 
PDP-12 Character Set 


Character 6—bit Code Comments 


00 Illegal 


22 Ws? 


33 Shift/K 


HYOIN<XS<KCAYNAOVOZFSKHAeTTOMMIONF SE 
o 


35 Shi ft/M 
ALT MODE 36 
RUBOUT 37 
SPACE 40 
I 4] 
uy 4? 
RETURN 43 
$ 44 Illegal 
LINE FEED 45 
& 46 


ee 














Character 


TAB 


( 
) 


* 


tag 


I 


OMNI O&O MH BRWNH— OO - 


“ad V i pe ee oe 
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Table I (Cont) 
PDP-12 Character Set 


6-bit Code Comments 


47 Control /l 
50 
5] 
52 
53 
54 
55 
56 
57 
60 
6] 
62 
63 
64 
65 
56 
67 
7C 
7 
72 
73 
74 
75 
76 
77 


penetra 3 AAG ROE mL LAER NEE SE OEE OSETIA LEM ET Ma yh TT RRNA TR ECO, FTG NRT a eA 
psa 


cere ig re 


soe peeeeen ene errant ea | 


hig REE, PT RT TTT RRR RLM LIP EPEAT CEB 





LI QANDA>, 1 


ABA 
HAH Y 
AARP 
AAAS 
AAA 4 
AAAS 
ABBE 
ABAT 
AA19 
AAI 
AAP 
AALS 
HALA 
ABIS 
AAG 
AAT 
AKA 
AAP } 
AWAP?P 
ANP 2 
(VIIA 
WHPS 
NAP G 


YAP 7 
AWA 
AW3 | 
“AMP 
AAI% 


AAA 
AAAS 
AAI 
AARQF 
AA AA 
AAAI 
HWY AP 
AR AS 
AA LA 
AAAS 
ADAG 
GOGAT 
AASB 
AYS1 
NASP 
AAS 
AASA 
ASS 
(A Y fy ‘S 
AWS 7 
AWAD 
YAGI 
WA He? 
AAB3 
AAKRA 
MABS 
ABBA 


AYD67 
4073 
A074 


1ABOB 
10A1 
12082 
19023 
1DAB4 
1AAS 
10904 
LAAT 
Hiv 
1411 
ae? 
14413 
tALA 


1ALS 
1A14 
1417 
1APA 


1A?) 
LAPP 
18e3 
LAP 4 
1A25 
124° 6 
19e7 
1030 
1931 
193° 
1033 
LARA 


1435 
LA3B6 
EAS 
1AAA 
1A41 
1A4P 
1LAAS 
LA4A 
LAAS 
LU46 
1H47 


1956 
1451 


14S? 


1453 


124?0 
ABA 
CAAD 
1B6a 
AAAD 
32604 
AAAI 
10041 
3P 64 
SAST 
PAP | 
Se. 
AURA 


AA AR 
145? 
QOAAA 
1HA%7 


AA 44 
AAD A 
7270 
QBi6 
1324 
7231 
TABS 
7056 
1468 
AGB 43 
TBC6 
7Th21 


$3423 
1324 
11e0 
7717 
AGiT 
ADD GE 
be 
APP é 
THAR 
1323 
TAP 6 


1343 
AAGA 


AAA 


1026 


¥ 29 


/GQANDA SUBROUTINE FOR THE 


/PDP-12 


REMOVE *1090@ BELOW IF 
ZINSERTING SOURCE DIRECTLY 
ZINTO YOUR PROGRAM SOURCE 


*10290 /REMOVESIF DESIRED 


7 


TO HERE TO INITIALIZE THE RO 


4 
OAINIT>, 


QAB >» 


IFLN, =] 
QACN»s 


Ce 


QADs 


CAF» 


ERK BUFR 


QARFSH » 


LDA 
a 

ADD 
STA 
i) 

ADD 
STC 
LDA 
ADN 
S fe 
LTA 
ay Ge 
ae 
777 
SEY 


I 


—D 
I 


QAL+3 

1 

i 

OAM+ I 

NAG-3 

I 1 
QARFSH - i 

6 

IF YES 

3 AKXRA TO 


QARFSH - 1 


SEL 


QAG- 


SET 
4 
JMP 
NOP 
LDH 
JMP 
JME 
JMP 
SAE 
43 
JMP 
JMP 


STH 
LDH 
ADA 
~ 6A 
COM 
SiC 
o TH 
ASK 
JMP 
DH 
IMP 


STH 
SET 


ig) 


LDA 


4 
3 


] 

QAT 
I 4 
QAD 
ot 6 
OAR 
I 


OAD 


UTINE 


SAVE IMP RETURN 


/ IMP 
PTR 


4 GET 
/PTER 


SKRG 


+3 


TO FIRST PARAM 


FIRST PARAM 


TO HALFWORD- 1 


USED AS A SWITCH. 


PTR TY ANSWERS 


SKRRA 


TO HFRE TF FIRST TIME THE 


7 
JH. B 


S14 
434 
ZOCOR? 


SND 


=O 


~~ ¥ 


TO PTR TO QUESTIONS 


UMP PTK IF H OR 


OACA+4 SEXAMINE NEXT CHAR 
/ZINITIALIZE ANSWFR BLIFR 
74 TO ANSWERS 
NEXT HALFWORD 


i) 
I 4 
I 


fH IN 


BUMP? 


AC 


PTR TO ANS WEES 


JANSWER BUFR IS 


SKK 


fos ENTER ERE. FO 
ZINITIAL Y POSITION 


TO PTR TO LAST TYPED 


INITIATED 


es 
re 


EFR 














VIA TO 
AGA 
AATA 
AATS 
ATL 


07 7 
(VP UW 
(EAI 
oe Bui 
LT AR 
veil 
AIDS 
ALAKG 
ALT 
APP 
AY. 
“Ay. po 
OPTS 

Lia 
Pe re el 
MLA 
4147 
ALP 
Ave y 


“VW YPe 
APPR 
MLPA 
APS 
WIPG 
AVE | 
CT 
Vil 4) 
fy] 30 
ae ae 
ae ae ed 


ce ei 
ME é 
oo tee: 
14% 
Hl Ad 
MV AP 
Ce med be 
ALAM 


W1TAS 
“AlAGA 
AY AT 
ALSY 
ArS1 
Apso 
YPTS3 
Pad 
E55 
ASL 
| a 5 
Ze ae 
ALA) 
‘AP AP 
H143 
ALGA 


DAS TR I tee 


1ASA 
10455 
10564 
1057 
A649 


THAI 

TAA? 
146% 
LUBA 
1Q6S 
LOAA 
LAAT 
1A79 
1A71 

14A72 
LATS 
LATA 
LATS 
LAT¢ 
Viet 
LiMo 
Pid 

111A? 
1103 


Lids 
TiAS 
Line 
1in7 
1iia 
11171 
Liie 
PLES 
1i14 
jes ie as 
1 


Lle7 
bio 


LPR 
ae ee 
1132 
1134 
ie ae Be 
PI 26 
ji ae | 
oe ed 
'T 4%] 
LTA? 
114% 
114A 
114% 


W277 
5113 
AGB®63 
BAAD 
ANAS 


LAS? 
AAA} 
OAAB 
TP 7A 
TATA 
133 
LAPA 
1568 
S1A3 
ole 
7101 
f3e3 
14 4b 
LAA 
S103 
ae ee 
9°45 
AACA 
14?°6 


APA 
AvAA 
ADGAI 
W1iaAoH 
LAPD 
TTAAd 
114A 
AQDAY 
L3eo 
TEP 3° 
T3901 


7136 
1420 
AAP 
TWAP 
7242 
7114 
TP AP 
1520 


AUDA 
To6 


EB? 5 
IPF 
T1114 
TTLA 
oe eee 
T5° 1 
AATA 
TAGAA 
4s, 
141°? 
1462 
rece | 
LAPP 


ae | 





STC 
SET 
A 

Si et 


SWER BUFR 


OAGs 


QAM » 


QAH » 


= 


T7777 


OAT» 


OAS» 


OAR 
SET 
3 

JIMP 
JMP 
LDH 
LDA 
BCL. 
STC 
ADD 
JMP 
LDH 
LDA 
Boe 
ae 
ADD 
STC 
MSC 
BSE 


Onn 
MSC 
SET 
10a 
LDA 
-~ AY 
ADM 
4) 

LDH 
JMP 
JMP 


JMP 
SHA 
425 
JMP 
JMP 
JMP 
JMP 
SRO 


B 
JMP 


LOH 
JIMP 
IMP 
JMP 
JMP 
JMP 
AZFE 
JIMP 
SET 
OQAY 
SHDN 
JMP 
SHN 


QAH - 1 
b-93 


5 


FSH- 1} 
1 


OAT 
+7 
Li 3 


QAM+P 
QAW 
OAM 
as) 


QAM+2 
QAW+ 1 
QAP+3 
1 4 


P23 
QAN+ 1 
OAZ 


OAT 

I 
4 

QAG 

QAP 

QAH 

OAP 

I SWITCH 


ZARB TO PTR TOY HALFSORN OG 


7KXR5 TO PTR TO LAST DISPL® 
as 
Si. TIMP ye Tie 


“NEITHER. ASSUME HALF SIZF 


ZSET INSTR TO CLEAR FF FOB 
JZNOP IN AC 
7RLIMP PTR 
/SET INSTR TO SET FF FOR @ 


SADD 9U IN AC 


SFA CONTROL RECT STEER 


/THIS INSTR CHANGES. EITHER 


FAC 
SKK 


TO CONTROL REGISTF: 
TO INITIAL X POSITION 


ff COORDINATE MULTIPLE 


ZY COORDINATE 


774 BUMP PTR TO NEXT CHAR 
S34 
ASFOUITHER 


/CRe MOVE X AND Y COORDINE 
ZYSPLAY CHAR 

/PICK UP NEXT CHAR 

7T9O HERE TF DISPLAYING ANS 
TO DISPLAY CURSOR. FITHERG 


ST PXR4=AR5s THEN SWELTCH=77 


QAF 
SOUFSTION MODF 
I 5 
QAN+1 
QAH S74 
QAH S234 
OAT-4 AYETTHERe DISPLAY IT 
GFTKBP ZT) HFRE ITF DISPLAYFD H''FR 
1 ' 
OAt; SNOTHING TRYPFN 2. EXIT 
1: 22 
2 J\F? 
OAK+4 SYEFSe FAIT 
I ? 7 Cas? 
1 
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A’bB5 
O1AG 
A167 
AlLTA 
A171 
“017° 
AI7T3 
QO174 
W175 
~A176 
Qiv77 
APAD 
BAPUOI 
AP AP 
APA3 
UPAG 
HPA 
APAG 
YWOAT 
APD 
APL 
OP1? 
A213 
AP14 
A215 
AL164 
QeE17 
ABE2B 
A221 
O°e2e2 
8223 
QAPC4 
B225 
AP26 
A227 
A23G 
A231 
Oe 32 
4233 
QE234 
A235 
AL346 
Be237 
QeAGD 
APAI 
WAP 
0243 
QZPA4 
QeP4s 
WP 46 
B247 


0250 
Wexd 
9252 
8°53 
Q9P54 
9255 
M2596 
$257 
D2. 6B 
A261 
A262. 


1146 
1147 
1150 
1151 
1152 
EPS3 
1154 
1155 
1156 
Wi ee 7 
1168 
1161 
116°? 
1163 
1164 
1165 
1164 
1167 
1170 
1171 
117? 
1173 
1174 
1175 
1176 
1177 
1?PAR 
1201 
1262 
1203 
1204 
1205 
12G6 
1207 
i2id@ 
iell 
1212 
1213 
1214 
1215 
1216 
1217 
1223 
1221 
1e2e 


1223 
1224 
Lee) 
1226 
1227 


1239 


Leo! 

1230 
1233 
1234 
1235 
1236 
1237 
1244 
1241 


71223 
HENGE 
7053 
1422 
7175 
1422 
71305 
1422 
TAS 
1422 
72353 
142°? 
7175 
14P2 
74953 
517? 
te 
7? 63 
72 63 
1de2o0 
AAA 
1344 
7053 
1364 
7232 
TA53 
1775 
1302 
14664 
0337 
7263 
AGAS 
ABBA 
BBAZ 
2GG4 
7213 
E325 
1223 
1232 
AG1i6 
ABil 
1345 
0458 
7eP 12 
7263 


BeEnS 
7311 
7231 
7853 
7451 


taco 


1324 
1429 
7480 
6008 
1460 
YY34 
0226 
G220 
60 AP 


QAL » 


QAN » 


JMP QAN 
XSK 6 

JMP QARFSH 
SHD I 2 
JMP QAL 
SHD I 2 
JMP QAK 
SHD I 2 





IS THERE AN ANSWER FIELD? 
/<? 
/>? 


SALT? 


JMP QACA /REINITIALIZE 


SHD I 2 
JIMP QARFSH 
SHDN I 2 
JMP QAL 
SHD I 2 
JIMP QARFSH 
STC #5 
JMP OAD 
JIMP QAO 
JMP QAQ 
LDA I 

~A 

STH 4 

JMP GARFSH 
LDH 4 

JMP QAOD+1 
JMP QARFSH 
- 6002 

LDH 2 

SAE I 

a7 

JMP QAQ 
SET 5 

4 

SET 3 

4 

JIMP +2 
LDH I 5S 
LOS 1. 3 
JMP QAO+1 
NOP 

CLR 

STH 5S 

AZE 

JMP .-7 
JIMP QAQ 


XSK 6 

JMP QAK+4 
JMP QAO 
JMP QARFSH 
JMP QAE¥+1 


ESTION FIELD 


QAO » 


JMP GAN+2 


LDH I 4 
SHD I 
T4009 
JMP @ 
SAE I 
34 

ASK I @ 
ASK I @ 
JMP 9 
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BACK SLASH? 

41 GNORE 

/RUBOUT? 

ZI GNORE 

/ TAB? 

/1GNORE 
SACCEPTABLE CHAR 
STEST NEXT CHAR 
474 BACK PTR UP BY 1 
434 7 

fOKe STORE IT 


SREDISPLAY 
“TO HERE IF RUBBOUT OR < 
474 IGNORE 


/TEST THE CHAR 
/RUBOUT? 


“NO. BACK PTR UP BY 1 


“BUMP PTR 
/GET NEXT CHAR 


/IF 74 OR 345 REPLACE CUR 
WAS IT 74 OR 34? 

JNO« CONTINUE 

BACK PTR UP BY 1 

7T0 HERE IF CR 

/EXIT ROUTINE IF NO ANSWEE 


4/74 MOVE PTR TO NEAT QUES@ 
434 END OF BUFR. MOVE PTR@ 


/S\R 
/ +1 74 BEGIN FIELD 
/ +2 34 END BUFR 

/ +3 NEITHER 74 NOR@ 


im, 
ae, 








© 





» 


0263 7S\R TO DISP LINC CHAR ING 











B264 1242 @241 QAP, ROL 1 /MULT BY 2 FOR INDEX TO A® 
= ABLE 
 & 8265 1243 3430 ADD QAX+4 
| G2 66 1244 4082 STC 2 /ZADDRESS OF CHAR TO DISP B 
A267 1245 3506 ADD @AU /THIS INSTR CHANGES. EITH® 
9U 
A270 1246 3506 ADD @AU 
Ae71 1247 22001 ADD 1 7ADD 4 TO XR1 TO SPACE CHR 
M72 1250 4901 STC 1 
A273 1251 2805 ADD S$ /GET ADDRESS OF ANSWER BUR 
A274 1252 6017 COM 
A275 1253 ?@A4 ADD 4 
OTE 1254 AASB AZE 
QO17 1255 0011 CLR 
A300 1256 5127 STC OAI-2 /SWITCH=@ OR 7777 
A301 1257 3113 ADD QAH-1 /Y COORDINATE IN AC 
A3NP 1260 1742 nsc 2 
A383 1261 1762 psc I 2 /DISPLAY CHAR 
A304 1262 6880 JMP @ | 
B305 1263 1020 QAQs LDA I /BACK UP PTR BY 1 
B306 1264 3777 - 4000 
A307 1265 11408 ADM 
A31B 1266 8094 4 
A311 1267 7053 JMP QARFSH /REDISPLAY 
A312 / 
AZ13 1270 1321 OAT; LDH I 1 /S\R 
ABi4 1271 1420 SHD I / +16F 
B315 1°72 960990 Ab6aG / +2 H 
A316 1°73 6A0n JIMP @ / +3 NEITHER 
A317 1274 1460 SAE I 
A3B20 1275 ABA 12 
A234 1276 geen XSK I @ 
A220 1°77 220 XSK I @ 
‘ | Kaos 1399 6fn90 JMP Q 
é ABP A / 
Q3°5 1301 1323 QAZ; LDH I 3 
B36 1392 1920 LDA I 
Q227 13493 ABAD 4D 
AZ39 1304 7125 JMP QAI-4 
9331 | /TO HERE IF > 
A332 1395 1324 Q@QAK, LDH I 4 
A233 13426 A472 AZE I 71S CURRENT CHAR BLANK? 
A334 1307 7263 JMP QAQ /YES»e IGNORE 
A335 1319 7424 JMP QAX /MOVE DOT FORWARD 
B336 7TO HFRE TO EXIT WITH SKIP 
B337 i311 1922 LDA I 
A340 1312 001 i 
A341 1313 1140 ADM 
A342 1314 1004 QAB 
ARAB 1315 7004 JMP QAB 
AZBAA /CHARACTER PATTERNS 
A345 i314 A101 QAVs Oiai /KBD Bs ILLEGAL. USED AS RB 
BRAL 1317 #101 Aidt 
A347 13°20 4477 4ATT /124 
0350 13° 67744 T7A4 
0351 13°22 $177 5177 /23B 
9352 1323 ?651 2651 
A353 1324 4136 4136 F33G 
ABSA 1325 241 O24) 
A355 1326 4177 4177 sated 
6356 1327 3641 3641 
A357 1330 A577 A577 /S3E 
13 
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cee et nee ee em 


— eo Cm gL, TTT rT em neg ER ALANA IT LIOR PTET PNT EM Tom rE ema chy BECAME, FL EYE yd ed 
wt Me ne EO Emer cere g ne cer nner pass ° my Ss os 


4369 1331 4145 4145 





A361 1332 4477 4477 /62F 
0362 1333 4044 ADAA 
9363 1334 4136 4136 /7:G 
B364 1335 2645 2645 
D365 1336 1977 1977 /1QtH 
9366 1337 7710 7710 
B367 1340 7741 7741 /iisi 
2370 1341 @941 B41 
A371 1342 4142 4142 /122J 
N372 1343 4076 4976 
373 1344 1077 1977 /132K 
W374 1345 4324 A324 
A375 1346 9177 Q177 JV 43h 
A376 1347 A3ol A301 
A377 1350 3077 3977 152M 
vane 1351 7730 7730 
AMI 1352 3077 3077 /162N 
wane 1353 7706 779 6 
0403 1354 4177 4177 41730 
DANA 1355 7741 7741 
ALS 1356 4477 AATT /2032P 
Dane 1357 3044 3044 
WAA7 1360 4276 4276 72130 
DAG 1361 9376 A376 
DALI 1362 4477 4477 /222R 
41? 1363 3146 3146 
AA13 1364 5121 5121 4232S 
Ara 1365 4651 4651 
BAIS 1366 4040 40 4B /24:2T 
ALG 1367 4077 4077 
S417 1370 9177 Q177 /252U 
A420 1371 7701 7701 
A421 1372 176 B176 /262V 
Q 422 1373 7492 TABE oy 
0423 1374 9677 D677 S273 0 ey 
HA24 1375 7701 7781 
DAS 1376 1463 1463 /382X 
BA26 1377 6314 6314 
A427 1409 9770 779 /318Y 
430 1401 7097 7287 
AAB1 1402 4543 4543 /323Z 
BAR2 1493 6151 6151 
A433 1404 4177 A177 43327 
A434 1405 ange BOO 
AA35 /34tBACKSLASH IGNORED ON B@ 
A436 1406 8900 2 /NOT USED 
B437 1407 anoe g /NOT USED 
D4AD 1419 6990 BBV 4352) 
BA41 1411 7741 7741 
BA42 /CODES 36:ALTs, 37:RUBOUT @ 
3443 1412 4543 QAYs 4543 /1LFsCR 
D444 1413 7476 7476 /<s> 
A445 1414 3634 3634 /ALTs BACKSLASH 
D446 1415 3747 3747 /RUBOUTs TAB 
AAA 1416 29690 200 / 403 SPACE 
A458 1417 g9a9 ADO 
BAS1 1420 7500 7580 SAALX! 
Aa5e 1421 9900 DBA 
BAS3 142° 7000 1080 423" 
DAS4 14°23 A790 QO70 
A455 : /CODES 4325 4425 45:LF NOB 
DAS6 1424 7232 AX, JMP QA0+1 
14 
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Lar) 


> 





A457 
Yi 46) 
AAGI 
AAGBP 
YABB 
464 
“W465 
(i466 
“4467 
AATD 
AAT 
AAT? 
AAT 
AAaTA 
YATS 
AATEA 
AATT 
ASSAY 
W501 
ASB? 
SAS 
ASA 
ANAS 
OHS 
YO? 
CBee ad 
“ASI 
4512 
ihe a ee 
G514 
0515 
AS16 
4517 
0526 
G5e1 
@52e 
BS23 
WSPA 
YD) 
8526 
A5e7 
53a 
ASS I 
ANAS 
~AS3IA 
AS 34 
G35 
W536 
ASST 
0548 
BS4t 
C542 
AS43 
0544 
2545 
546 
Q547 
0556 
655i 
A552 
BSo3 
G554 
V55.5 


LAP5 
14°64 
14°27 
1430 
1431 
1432 
1433 


1434 
1435 
1436 
1437 
1440 
144] 

144? 
14483 
1444 
1445 
1446 
1447 
1452 
1451 

145° 
1453 
1454 
1455 
1456 
1457 
1468 
1461 

1462 
1463 
1464 
1465 
1466 
1467 
147@ 
147] 

1472 
1473 
1474 
L475 
L476 
L477 
15A6 
1504 

150? 
1503 
1544 
1S5a5 


1506 
1587 
1516 
1511 


152 
1513 
i514 
1515 


1516 
1517 


7? 63 
T1263 
7953 
1316 
BABB 
3166 
0526 


ABAD 
QBGA 
3600 
AAAI 
4180 
BO36 
2058 
AASA 
AAGS 
A437 
ASAD 
ABNG 
AAn4 
DADA 
ABM 
AWAD 
ABI 
ADR ' 
4536 
2651 
21B1 
0177 
4523 
215i 
4122 
2651 
2414 
GATT 
5172 
8651 
1506 
4225 
4443 
6058 
5126 
2651 
512? 
3651 
P2209 
YAAA 
4601 
AnAB 


OWBB2 
BBG 
f2t2 
lele 


OBi6 
3546 
4920 
e855 


1769 
60BB 


QAUs 


QAWs 


GAF » 


JMP QAQ 
JMP QAO 


JMP QARFSH 


QAV 
4) 
5166 
0526 


6 

4) 

3 688 
AAA) 
4100 
8036 
2058 
ABS 
BAD4 
AA3T7 
A500 
OBOE 
B4B4 
DA 4 
AAG 1 
DAB 
A6D | 
4830 
4336 
3651 
2191 
Oiv77 
4523 
2151 
4122 
2651 
2414 
OAT7 
5172 
6651 
1596 
4225 
4443 
6050 
5126 
2651 
bi ee 
36451 
2208 
OUGH 
4601 
BABB 


a 
4) 
1212 
1212 


NOP 
ADD QAU 
4028 
2855 


DSC I 
6060 
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/ 6826 


77028 


SNOT USED 
S463 & 


/CODE 47: TAB NOT DISPLAYED 
/NOT USED 

JNOT USED 

1503: € 

7512) 


523 * 


76121 
62:2 
46333 
S644 
76535 
46636 


4673 7 


S139 
4723 % 
17323 


ACODE 742<NOT DISPLAYED 
SCONSTANT 


/NOT USED 


47532 


CODE 763> NOT DISPLAYED 


4773? 














4556 
@557 
6568 
A561 
0562 
8563 
D564 
A565 
A566 
AS67 
ASTA 
ASTI 
AST?P 
AST3 
A574 
ASTS 
AS7T6 
ASTT 
0 609 
8601 
2602 
6643 
0604 
G605 
BERG 
0 607 
4612 
0611 
A612 
W613 
Q614 
BAiS 
Y616 
QA6i7 
B60 
4621 
A622 
A623 
8624 
8625 
7626 
B627 
86393 
7631 
Y632 
4633 
M634 
0635 
6636 
Q637 
B64B 
O641 
0642 
4643 
D644 
8645 
6646 
D647 
0656 
A651 
4652 
0653 
Q654 


1528 


1571 
1Se2 
15°3 
15° 4 
1525 
1526 
LSe 1 
1536 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1540 
1541 
1542 


1543 
1544 
1545 
1546 
1547 
155¢ 
P3514 
135e 
1553 
1554 
1550 


1556 
boof 
1560 
1561 


V362 
1563 
1564 
1565 
1566 
1567 
1570 
1571 


1572 
ES 73 


1574 


7131 


1AGD% 
ABA 
S643 
COD I 
5649 
28GB? 
9642 
9636 
B415 
6B8G 
O58 
6036 
1460 
DOBD 
1120 
T5406 
9451 
1604 


6061 

1654 
0862 
7776 
1800 
1536 
1461 

7554 
7635 
Ge2e2 
7951 


1126 
T44B 
BA451 
TOTO 


1461 
TS T2 
1826 
0334 
1644 
1829 
Q@A37 
T637 


1461 
7635 


1637 


JMP QAI 
7 
4 
/ 
/ 
/ 
ZKEYBOARD INPUT ROUTINE 
rf 
QAKRB= 6036 7PDP-8 I 
QATSF=6041 /TSE 
QATLS=6046 /TLS 
/ 
GFETKRBDs LDA 
@ 
STC QAFXIT+6 
ADD 1 
STC QAEXIT+3 
ADD 2 


STC QAEXIT+5 
STC QAEXIT+1 


ZEND Q+A 


OT KBD 


SSAVE RETURN 


“SAVE XRS 1 AND @ 


FLAG 


/CONTROL CHAR. CHECK FOR 8 


ILLEGAL CHAR. DONT ECHO 


KST WAS SOMETHING TYPED? 
JMP @ NOs EXIT 
I1O0B 
QAKRB /GET TTY CHARs CLEAR 
STA I /SAVE IT 
OCATY » 6) 
ADA I 
~237 
APO /BETWEEN 286 AND 237? 
JMP QACNTR 
/ 
SET I 1 /NO 
QACHAR-1 
SET I 2 
-7 
LDA 
QATY 
SAE I 1 
JMP .#2 
JMP QAEXIT 
ASK I 2 /SCHECKED THEM ALL? 
JMP 7H 
/ 
ADA I 
~337 
APO /BETWEEN 248 AND 337? 
JMP QALEGL JYESe LEGAL CHAR 
/ 
SAE I 1 /NO~.’ CHECK FURTHER. 
JMP .+7 
LDA I /RUBOUT 
334 
JMP QATPE JECHO BACKSLASH 
LDA I 
37 
JMP QAEXIT+2 ALEGAL EXIT 
/ 
SAE I 1 
JMP QAFRXIT /TILLEGAL 
SALT 
JMP QAEXIT+2 /EXITs DONT ECHO 
/ 
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SR er er eer rere carer 


w% 





ard 


%, 
{ F Pe; 





#¢ 





DHS5 1575 1060 QALEGL»s LDA 
W656 1576 1536 GATY 
om, A657 1577 7644 JMP QATPE SECHO CHAR 
C A669 1600 3536 ADD QATY 
W661 1641 1560 BCL I /STRIP IT TO 6-BIT 
N662 1622 7780 7790 
A663 1603 7637 JMP QAEXIT+2 
C664 /TO HERE IF CONTROL CHAR 
A665 1694 1460 QACNTR, SAE I 
A666 1685 7755 7755 
A667 1606 7621 JMP @ACKLF 
A67A i6A7 1020 LDA I /CR 
A671 1610 @8423 A3 
72 1611 5636 STC OAEXIT+1 
AAT 161° 1APD LDA If 
AKTA 1613 @e15 215 
AE TS 1614 7644 JMP OATPE 
AGT4 1615 1920 LDA I 
NEV 1616 G@eiP 212 
“TAC 1617 7644 JMP QATPE 
BIB i 16°0 7635 JMP QAEXIT 
(WI 7W2 / 
SIA 1421 1460 GACKLF, SAE I 
TAA 1622 71752 7752 
DTAS 1623 7627 JMP .4+4 
TAG 1624 1029 LDA I JL 
AVA 1625 B45 AS 
ATi 1626 7611 JMP GQACNTR+5 
A 1627 1460 SAE I 
ATi2 1630 7751 7751 
A713 1631 7635 JMP QAEXIT /ILLEGAL 
A714 1632 1420 LDA I 
ATS 16433 @@47 AT 
ATG 1634 71637 JIMP QAEXIT+2 EXIT» DONT ECHO 
é AAT / 
a, ATO 1635 16°20 GQAFXITs LDA 1 /GET 6-BIT ASCII 
AT} 16346 BBAA 0 
A722 1637 @061 SET Ij /RESTORE XRS 
A723 1640 BBOB a 
ATPeA 1641 AA6e2 SET I 2 
W725 1642 gon a 
(726 16423 6090 JMP /JEXIR SNR GETKBD 
AI27 /S\R TO PRINT CCACD 
§738 1644 50M OATPE, 108 
W734 1645 6U46 QATLS /PDP-8 IOT TLS 
8732 1646 1680 LDA 
7733 1647 9@no g 
ATIBA 1650 5654 STC e+4 SSAVE RETURN 
2735 1651 8500 10B 
AT36 1652 6841 QATSF WALT FOR FLAG 
0737 1653 7651 JMP .-2 
A740 1654 6080 JMP /EXIT 
A741 / 
742 1655 @243 QACHAR,s 243 /HASH 
A743 1656 6244 244 /SDOLLAR SIGN 
QOT44 1657 @245 245 /PER CENT 
ATAS 1660 @247 247 SAPOSTROPHE 
A746 1661 9300 300 SAT SIGN 
ATAT 1662 6336 336 /UP ARROW 
ATSA 1663 @337 337 /BACK ARRON wi 
V7S1 1664 @@4d AD /RUBOUT 
AWB 1665 9036 36 SALT 
A753 /END OF SNR GETKBD 
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ein aaa AAD Laelia) CRI STOTT emer ml RMN AIST SR PY TAIT I TY z 





Ag RR AIM eo poe ee nner en rs Be epee tiem rasta sop em 





GETKBD 
QAB 
QACA 
QACHAR 
QACKLF 
QACNTR 
QAN 
QAE 
OAFXIT 
QAF 
QAG 
OAH 
QAT 
QAINIT 
QAJT 
QAK 
QOAKRB 
GAL 
QALE GL 
GAM 
GAN 
QAO 
QAP 
QGAQ 
QARFSH 
QAT 
QATLS 
QATPE 
OATSF - 
OATY 
QA 
OAV 
QOAW 
QAX 
OAY 
QAZ 


9521 
500 4 
5815 
5655 
9621 
5604 
5026 
5450 
5635 
5514 
506° 
5114 
Pe 
5000 
5136 
5305 
6036 
9175 
3 b> at Be. 
51081 
5223 
Dea! 
92 42 
9263 
9053 
5278 
6446 
3644 
60 41 
epee 5) 
5506 
5316 
Soe 
3424 
9412 
9381 


BQBQOB 


ERRORS 
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